Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/output.fm

Text File | 1993-07-16 | 11KB | 2,080 lines

(standard0 list-fns comp-defn compstate mod-info syntx-env props instruct assem peep-drv stream)
16
3767
(output name statics local-count byte-codes imports exports length 1 code nslots names dependencies boot 2 (0) (0) (1) (0) make-installed-module (0) 3 (0) (0) (0) 0 (1) install-local-bindings (1) (3) make-interface strip (output-compile-state write-compile-unit output-sc-state optimize-code strip-module boot-module micro-optimize-code) ((strip (union (except (cadr) (union (import standard0))) (import list-fns) (import comp-defn) (import compstate) (import mod-info) (import syntx-env) (import props) (import instruct) (import assem) (import peep-drv) (import stream))) output-compile-state write-compile-unit output-sc-state optimize-code strip-module boot-module micro-optimize-code) output)
36
0 0 17 0
5
0 0 0 0
3
0
31
0 0 170 0
17
1
36
0 0 27 0
5
0 0 0 0
4
0 0 35 0
46
1
(boot . make-installed-module)
34
2
36
0 0 100 0
5
0 0 0 0
8
3
4
0 0 33 0
5
0 0 36 0
3
0
39
8
0
5
0 0 37 0
3
0
39
28
1
5
0 0 38 0
3
0
39
28
1
5
0 0 39 0
3
0
39
28
1
5
0 0 40 0
3
0
39
28
1
5
0 0 41 0
3
0
39
28
1
5
0 0 42 0
3
0
39
28
1
17
1
1
(boot . install-local-bindings)
34
3
17
1
36
0 0 28 0
5
0 0 1 0
8
3
4
0 0 34 0
1
(boot . make-interface)
34
2
17
1
14
2
1
37
22
0
36
0 13 249 0
11
4
0 0 1 0
5
0 0 0 0
39
51
1
7
0 0 43 0
36
0 12 103 0
11
4
0 0 1 0
6
1
39
51
2
7
0 0 36 0
36
0 12 43 0
11
4
0 0 1 0
6
2
39
51
1
7
0 0 37 0
36
0 11 151 0
11
4
0 0 1 0
6
3
39
51
1
7
0 0 44 0
3
0
7
0 0 45 0
36
0 10 83 0
11
4
0 0 1 0
6
4
39
51
3
7
0 0 38 0
3
0
7
0 0 46 0
36
0 9 218 0
11
4
0 0 1 0
6
5
39
51
1
7
0 0 47 0
36
0 0 19 0
1
(list-fns . local-var)
3
1
10
34
1
7
0 0 48 0
36
0 0 19 0
1
(list-fns . local-var)
3
1
10
34
1
7
0 0 42 0
36
0 0 22 0
1
(list-fns . local-var)
4
0 0 14 0
10
34
1
7
0 0 41 0
36
0 0 19 0
1
(list-fns . local-var)
3
0
10
34
1
7
0 0 40 0
36
0 9 87 0
11
4
0 0 1 0
6
6
39
51
0
7
0 0 39 0
36
0 0 48 0
36
0 0 26 0
1
(init . setter)
1
(init . setter)
10
33
1
4
0 0 39 0
36
0 8 224 0
8
6
40
1
11
33
2
18
36
0 8 66 0
11
4
0 0 1 0
6
7
39
51
1
7
0 0 49 0
36
0 0 53 0
11
4
0 0 1 0
6
8
39
51
3
7
0 0 50 0
36
0 0 25 0
11
4
0 0 1 0
6
9
39
51
3
7
0 0 51 0
18
3
1
37
11
11
14
6
2
39
37
22
5
36
0 0 47 0
1
(init . mapcar)
1
(abs-syntx . defn-ide)
36
0 0 19 0
4
0 0 49 0
8
10
10
26
31
0 7 209 0
3
0
12
34
-3
10
16
20
0
4
18
36
0 0 17 0
1
(instruct . make-refed-label)
9
34
0
10
16
20
0
3
18
1
(lists . list-length)
11
62
1
9
11
16
20
0
2
18
1
(arith . +)
4
0 0 9 0
11
3
0
62
-3
11
16
20
0
1
18
1
(arith . +)
4
0 0 15 0
11
3
0
62
-3
11
16
20
0
0
18
36
0 5 196 0
12
40
0
36
0 1 94 0
8
4
40
0
36
0 0 123 0
1
(list-fns . fold)
1
(boot . append)
36
0 0 25 0
1
(instruct . i-label)
8
10
19
0
3
3
0
39
10
34
1
3
0
39
3
0
39
9
36
0 0 40 0
1
(extras0 . convert)
36
0 0 14 0
3
0
8
15
31
0 1 7 0
1
(standard0 . pair)
11
34
2
3
0
39
29
36
0 0 14 0
3
0
8
12
31
0 5 71 0
3
0
39
29
18
8
10
12
34
3
36
0 0 213 0
1
(boot . append)
8
8
8
8
19
0
4
3
0
39
9
36
0 0 13 0
4
0 0 40 0
9
33
0
32
0 0 60 0
4
0 0 32 0
3
0
39
9
36
0 0 36 0
1
(syntx-env . module-import-desc)
36
0 0 19 0
1
(props . module-imports)
8
21
10
33
1
10
33
1
3
0
39
29
18
31
0 0 41 0
36
0 0 36 0
1
(syntx-env . module-import-desc)
36
0 0 19 0
1
(props . module-imports)
8
19
10
33
1
10
33
1
36
0 0 47 0
1
(init . mapcar)
1
(abs-syntx . defn-ide)
36
0 0 19 0
1
(props . module-exports)
8
21
10
33
1
3
0
12
34
-3
39
3
0
39
29
36
0 0 19 0
1
(abs-syntx . module-name)
8
16
10
33
1
3
0
39
29
18
11
34
2
14
9
2
39
37
36
0 0 17 0
1
(stream . make-simple-stream)
9
34
0
36
0 0 17 0
1
(instruct . make-refed-label)
9
34
0
36
0 0 17 0
1
(instruct . make-refed-label)
9
34
0
36
0 0 130 0
1
(stream . write-stream-list)
8
5
36
0 0 22 0
1
(instruct . push-label)
8
8
3
0
39
10
34
1
3
0
39
9
36
0 0 22 0
1
(instruct . push-fixnum)
4
0 0 21 0
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . nth-ref)
4
0 0 22 0
3
0
39
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . push-static)
8
12
19
0
2
3
0
39
10
34
1
3
0
39
29
18
11
33
2
18
12
19
0
4
42
32
0 0 54 0
36
0 0 44 0
1
(stream . write-stream-list)
8
5
36
0 0 22 0
1
(instruct . push-special)
4
0 0 23 0
10
34
1
3
0
39
11
33
2
31
0 1 39 0
36
0 0 49 0
1
(list-fns . fold)
36
0 2 209 0
8
8
40
2
8
7
19
0
4
27
36
0 0 17 0
1
(stream . make-simple-stream)
9
34
0
12
34
3
36
0 0 146 0
1
(stream . write-stream-list)
8
6
36
0 0 44 0
1
(instruct . push-fixnum)
36
0 0 17 0
1
(comp-defn . the-local-handle)
9
34
0
8
12
19
0
4
26
39
3
0
39
10
34
1
3
0
39
9
36
0 0 22 0
1
(instruct . push-special)
4
0 0 25 0
10
34
1
3
0
39
29
36
0 0 19 0
1
(instruct . i-cons)
3
0
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . nth-ref)
4
0 0 26 0
3
0
39
10
34
1
3
0
39
29
18
11
33
2
18
36
0 0 47 0
1
(stream . write-stream-list)
8
6
36
0 0 28 0
1
(extras0 . convert)
8
7
1
(standard0 . pair)
11
34
2
11
33
2
18
36
0 0 44 0
1
(stream . write-stream-list)
8
6
36
0 0 22 0
1
(instruct . drop)
4
0 0 27 0
10
34
1
3
0
39
11
33
2
15
2
18
1
(stream . write-stream-list)
12
36
0 0 39 0
1
(instruct . push-global)
36
0 0 13 0
4
0 0 41 0
9
33
0
4
0 0 28 0
39
3
0
39
10
34
1
3
0
39
9
36
0 0 25 0
1
(instruct . apply-bvf)
4
0 0 22 0
3
0
39
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . i-label)
8
8
3
0
39
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . drop)
4
0 0 9 0
3
0
39
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . push-label)
8
7
3
0
39
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . push-fixnum)
4
0 0 29 0
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . nth-ref)
4
0 0 30 0
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . push-static)
8
10
19
0
1
3
0
39
10
34
1
3
0
39
29
36
0 0 39 0
1
(instruct . push-global)
36
0 0 13 0
4
0 0 41 0
9
33
0
4
0 0 31 0
39
3
0
39
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . apply-bvf)
4
0 0 15 0
3
0
39
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . i-label)
8
7
3
0
39
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . drop)
4
0 0 9 0
3
0
39
10
34
1
3
0
39
29
36
0 0 36 0
1
(instruct . i-slide-stack)
4
0 0 15 0
3
0
39
9
4
0 0 9 0
3
0
39
29
18
10
34
1
3
0
39
29
36
0 0 19 0
1
(instruct . return)
3
0
10
34
1
3
0
39
29
18
11
14
8
3
9
13
4
33
2
1
(stream . write-stream-list)
11
36
0 0 40 0
1
(instruct . push-fixnum)
36
0 0 17 0
1
(comp-defn . the-local-handle)
9
34
0
8
8
39
3
0
39
10
34
1
3
0
39
9
36
0 0 22 0
1
(instruct . push-special)
4
0 0 24 0
10
34
1
3
0
39
29
36
0 0 19 0
1
(instruct . i-cons)
3
0
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . set-slot)
4
0 0 9 0
3
0
39
10
34
1
3
0
39
29
18
11
14
7
3
9
13
4
33
2
36
0 0 17 0
1
(instruct . make-refed-label)
9
34
0
36
0 0 17 0
1
(instruct . make-refed-label)
9
34
0
36
0 0 17 0
1
(instruct . make-refed-label)
9
34
0
18
36
0 0 22 0
1
(instruct . push-label)
8
4
3
0
39
10
34
1
3
0
39
9
36
0 0 22 0
1
(instruct . push-fixnum)
4
0 0 16 0
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . push-special)
4
0 0 17 0
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . branch)
8
7
19
0
3
3
0
39
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . i-label)
8
6
3
0
39
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . drop)
4
0 0 18 0
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . push-label)
8
5
3
0
39
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . push-fixnum)
4
0 0 19 0
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . push-static)
8
7
19
0
0
3
0
39
10
34
1
3
0
39
29
36
0 0 19 0
1
(instruct . current-context)
3
0
10
34
1
3
0
39
29
36
0 0 39 0
1
(instruct . push-global)
36
0 0 13 0
4
0 0 41 0
9
33
0
4
0 0 20 0
39
3
0
39
10
34
1
3
0
39
29
36
0 0 25 0
1
(instruct . apply-bvf)
4
0 0 15 0
3
0
39
10
34
1
3
0
39
29
36
0 0 22 0
1
(instruct . i-label)
8
5
3
0
39
10
34
1
3
0
39
29
18
15
4
37
22
1
36
0 0 30 0
1
(boot . not)
36
0 0 13 0
4
0 0 40 0
9
33
0
10
34
1
32
0 0 20 0
18
1
(props . module-declarations)
9
13
3
33
1
36
0 0 19 0
1
(props . module-declarations)
8
4
10
33
1
10
16
20
0
0
18
1
(list-fns . mapcan)
36
0 0 36 0
12
40
1
36
0 0 19 0
1
(props . module-exports)
8
6
10
33
1
11
14
6
3
9
13
4
34
2
10
10
19
0
0
49
32
0 0 12 0
10
3
0
39
15
3
37
17
2
3
0
37
36
0 0 32 0
36
0 0 22 0
1
(init . setter)
4
0 0 48 0
10
33
1
8
4
10
33
1
18
36
0 0 22 0
1
(init . setter)
4
0 0 42 0
10
33
1
15
2
9
13
3
33
1
18
4
0 0 48 0
9
13
2
33
0
36
0 0 17 0
4
0 0 39 0
3
0
31
0 0 23 1
32
0 0 61 0
1
(peep-drv . optimize-lst)
36
0 0 19 0
4
0 0 44 0
8
5
10
26
31
0 1 88 0
9
7
0 0 46 0
36
0 0 13 0
4
0 0 42 0
9
33
0
11
14
6
3
9
13
4
34
2
18
4
0 0 44 0
9
13
3
26
31
0 1 45 0
36
0 0 36 0
1
(compstate . statics-2-list)
36
0 0 19 0
1
(compstate . state-statics)
8
8
10
33
1
10
34
1
1
(lists . list-length)
36
0 0 19 0
1
(props . module-declarations)
8
8
10
33
1
62
1
36
0 0 19 0
4
0 0 47 0
8
7
3
0
31
0 0 173 1
8
4
32
0 0 33 0
36
0 0 23 0
4
0 0 50 0
8
9
8
4
8
7
12
26
31
0 9 157 1
31
0 0 28 0
36
0 0 23 0
4
0 0 51 0
8
9
8
4
8
7
3
0
31
0 9 192 1
36
0 0 19 0
1
(assem . reify-code-list)
12
26
10
34
1
11
9
7
0 0 45 0
18
1
(standard0 . make-instance)
1
(comp-defn . sc-compile-unit)
4
0 0 3 0
8
4
27
4
0 0 10 0
8
5
26
4
0 0 8 0
36
0 0 19 0
4
0 0 43 0
8
10
3
0
31
0 2 105 0
4
0 0 11 0
8
12
4
0 0 12 0
36
0 0 19 0
1
(abs-syntx . module-name)
8
22
10
33
1
3
0
39
4
0 0 13 0
36
0 0 19 0
1
(props . module-flat-imports)
8
24
10
33
1
8
13
14
24
14
9
13
15
33
13
22
1
36
0 0 17 0
1
(stream . make-simple-stream)
9
34
0
10
16
20
0
0
18
36
0 0 47 0
1
(init . mapc)
36
0 0 65 0
8
5
40
1
36
0 0 19 0
1
(compstate . state-code)
8
8
10
33
1
3
0
12
34
-3
18
1
(extras0 . convert)
10
19
0
0
1
(standard0 . pair)
11
14
6
3
9
13
4
34
2
1
(stream . write-stream-list)
10
19
0
0
12
11
14
6
3
9
13
4
33
2
1
(comp-utl . write-object)
11
36
0 0 18 0
1
(comp-defn . unit-name)
12
10
33
1
3
0
12
14
7
4
9
13
5
34
-3
36
0 0 64 0
1
(assem . reify-code-list)
36
0 0 47 0
1
(list-fns . fold)
36
0 1 73 0
8
8
40
2
36
0 0 19 0
1
(compstate . state-code)
8
11
10
33
1
3
0
12
34
3
10
34
1
1
(comp-defn . make-compile-unit)
4
0 0 2 0
3
0
39
9
36
0 0 19 0
1
(abs-syntx . module-name)
8
9
10
33
1
3
0
39
29
4
0 0 3 0
3
0
39
29
36
0 0 36 0
1
(compstate . statics-2-list)
36
0 0 19 0
1
(compstate . state-statics)
8
11
10
33
1
10
34
1
3
0
39
29
4
0 0 4 0
3
0
39
29
1
(lists . list-length)
36
0 0 19 0
1
(props . module-declarations)
8
10
10
33
1
62
1
3
0
39
29
4
0 0 5 0
3
0
39
29
12
26
3
0
39
29
4
0 0 6 0
3
0
39
29
36
0 0 36 0
1
(syntx-env . module-import-desc)
36
0 0 19 0
1
(props . module-imports)
8
12
10
33
1
10
33
1
3
0
39
29
4
0 0 7 0
3
0
39
29
36
0 0 36 0
1
(syntx-env . module-exported-names)
36
0 0 19 0
1
(props . module-exports)
8
12
10
33
1
10
34
1
3
0
39
29
4
0 0 8 0
3
0
39
29
36
0 0 24 0
1
(list-fns . nth)
4
0 0 9 0
8
7
11
34
2
3
0
39
29
18
14
6
2
16
9
13
3
34
-1
1
(boot . append)
11
8
4
11
14
7
3
9
13
4
34
2
10
27
15
3
26
37